﻿module Database

open System
open System.Runtime.Serialization
open Models

let insertAccount =
    let dcs = Json.DataContractJsonSerializer(typeof<account>)
    let ms = new IO.MemoryStream()
    dcs.WriteObject(ms, { id = 2; name = "test account" })
    (ms.ToArray() |> Text.Encoding.UTF8.GetString)